home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMLK2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  1KB  |  44 lines
  1. Program DemoLinkTwo;
  2. {DEMLK2 - creating a linked list}
  3.  
  4. Uses CRT,
  5.      totLink;
  6.  
  7. var
  8.    GirlFriends: StrDLLOBJ;
  9.    Retcode: integer;
  10.    I : integer;
  11.  
  12. begin                 
  13.    ClrScr;
  14.    with GirlFriends do
  15.    begin
  16.       Init;
  17.       if maxavail > 200 then
  18.       begin
  19.          Retcode := Add('Erica');
  20.          Retcode := Add('Theresa');
  21.          Retcode := Add('Lynn');
  22.          Retcode := Add('Donna');
  23.          Retcode := Add('Godzilla');
  24.          writeln('Total nodes: ',TotalNodes);
  25.          writeln('Active node number: ',ActiveNodeNumber);
  26.          for I := 1 to TotalNodes do
  27.              writeln(GetStr(NodePtr(I),0,0));
  28.          writeln;
  29.          RetCode := InsertBefore(NodePtr(4),'Joyce');
  30.          writeln('Total nodes: ',TotalNodes);
  31.          writeln('Active node number: ',ActiveNodeNumber);
  32.          SwapNodes(NodePtr(5),NodePtr(2));
  33.          Retcode := Change(StartNodePtr,'Ekka');
  34.          for I := 1 to TotalNodes do
  35.              writeln(GetStr(NodePtr(I),0,0));
  36.          writeln;
  37.          writeln('Sorted:');
  38.          Sort(1,true);
  39.          for I := 1 to TotalNodes do
  40.              writeln(GetStr(NodePtr(I),0,0));
  41.       end;
  42.    end;
  43. end.
  44.